VERSION 5.00
Begin VB.Form frmGeneracionVentasCaidas 
   BorderStyle     =   5  'Sizable ToolWindow
   Caption         =   "Generacion de las Ventas Caidas"
   ClientHeight    =   1548
   ClientLeft      =   48
   ClientTop       =   312
   ClientWidth     =   4956
   LinkTopic       =   "Form"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1548
   ScaleWidth      =   4956
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdImprimir 
      BackColor       =   &H0000FFFF&
      Caption         =   "Imprimir"
      Height          =   615
      Left            =   2760
      Picture         =   "frmGeneracionVentasCaidas.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   720
      Width           =   855
   End
   Begin VB.CommandButton CmdSalir 
      BackColor       =   &H0000FFFF&
      Caption         =   "&Salir"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   6.6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   3720
      Picture         =   "frmGeneracionVentasCaidas.frx":030A
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   720
      Width           =   735
   End
   Begin VB.Line Line1 
      X1              =   120
      X2              =   4680
      Y1              =   600
      Y2              =   600
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "Reporte de Ventas Caidas"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   372
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   4452
   End
End
Attribute VB_Name = "frmGeneracionVentasCaidas"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdImprimir_Click()
    
    'On Error GoTo Errores
    'On Error Resume Next
    
    
   'If DE.rsAgruparVentasCaidas.State = adStateOpen Then DE.rsAgruparVentasCaidas.Close
   ' DE.AgruparVentasCaidas
   If DE.rsAgruparVCaidasOmar.State = adStateOpen Then DE.rsAgruparVCaidasOmar.Close
   DE.AgruparVCaidasOmar
    
    
    With DE.rsAgruparVCaidasOmar
        For i = 1 To DE.rsAgruparVCaidasOmar.RecordCount
            rEdoCodigo_Contrato = .Fields("rEdoCodigo_Contrato")
           dFecup = .Fields("dFecup")
            LoPagadoCliente = .Fields("LoPagadoCliente")
           LoPagadoAlVendedor = .Fields("LoPagadoAlVendedor")
           fechaanulacion = .Fields("Fecha_Anulacion")
            codigoVendedor = .Fields("codigoVendedor")
            TotalPagado = .Fields("total")

 
            If IsNull(fechaanulacion) Then
                fechaanulacion = #1/1/1900#
            End If
            
           'total = (TotalPagado - LoPagadoCliente)
           
          ' If Trim(rEdoCodigo_Contrato) = "B-4152-04" Then
          '   MsgBox "AQUI"
          ' End If
   
         ' If total > 0 Then
          '   If fechaanulacion > #11/30/2003# Or fechaanulacion = #1/1/1900# Then
                DE.Pla_mVentasCaidasOmar "I", rEdoCodigo_Contrato, dFecup, 1, LoPagadoCliente, LoPagadoAlVendedor, Usuario, fechaanulacion, codigoVendedor
          '   End If
         ' End If
        DE.rsAgruparVCaidasOmar.MoveNext
        Next i

   End With
    
    ' imprimir el reporte para revisar y aplicar las ventas caidas
     RutaReportes = DE.rsGENCParametros.Fields("RUTA_REPORTES")
   '  Imprimir RutaReportes & "ReporteVentasCaidas.rpt", "", "", "", ""
    ' Imprimir RutaReportes & "ReporteVentasCaidasJulia.rpt", "", "", "", ""
     
    
    '**** el reporte para que se entrego a los gerentes se llama
    '**** '**** '**** '**** '**** '**** '**** '**** '**** '**** '****
   '   Imprimir RutaReportes & "VentasCaidaspARALASuNIDADES.rpt", "", "", "", ""
    
    
    ' AQUI METI EL RESULTADO DE LO QUE LES DIO A LOS GERENTES
    
    
    'If DE.rsInserFondoVentaCaida.State = adStateOpen Then DE.rsInserFondoVentaCaida.Close
    'DE.InserFondoVentaCaida
    
   ' For i = 1 To DE.rsInserFondoVentaCaida.RecordCount
        ' aca la insertare en la planilla de fecha 31-10-2004, de la segunda quincena
    '    With DE.rsInserFondoVentaCaida
    '           Codigovendedor = Trim(.Fields("CodigoVendedor"))
    '            valora = .Fields("valor")
    '            iCodigo_TipoPlanilla = .Fields("iCodigo_TipoPlanilla")
    '            codigo = ""
'
 '               Dim rsEmpleado  As ADODB.Recordset
 '               Set rsEmpleado = New ADODB.Recordset
 '                  ' MsgBox "select codigo_empleado From plaPlanillas_Ventash where codigo_empleado = '" & Codigovendedor & "' and dfecha_Plan = '31/10/2004' "
 ''                   rsEmpleado.Open "select codigo_empleado From plaPlanillas_Ventash where codigo_empleado = '" & Codigovendedor & "' and dfecha_Plan = '31/10/2004' ", DE.Cnn, adOpenDynamic, adLockReadOnly
 '                   codigo = Trim(rsEmpleado.Fields("codigo_empleado").Value)
'
 '                ' si es espacio lo inserto de lo contrato lo actualizo
 '                If codigo = "" Then
 ''                       If DE.rsplaMPlanillas_Ventas.State = adStateOpen Then DE.rsplaMPlanillas_Ventas.Close
 '                       DE.plaMPlanillas_VentasH "I", "31-10-2004", Codigovendedor, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, valora, 0, "31-10-2004", "carlos", "2", iCodigo_TipoPlanilla
 '                   Else
 '                       'DE.Cnn.Execute "Update plaPlanillas_VentasH set nDescuento_FondoVentasCaidas = '" & valora & "' where codigo_empleado  = '" & Codigovendedor & "'"
  '                     DE.Cnn.Execute "Update plaPlanillas_VentasH set nDescuento_FondoVentasCaidas = '" & valora & "' where codigo_empleado  = '" & Codigovendedor & "' and dfecha_Plan = '31-10-2004'  "
  '                     End If
  ''     End With
  '
  '  DE.rsInserFondoVentaCaida.MoveNext
  '  Next i
    
 '   If DE.rsInsertarVentaCaiPrinci.State = adStateOpen Then DE.rsInsertarVentaCaiPrinci.Close
 '   DE.InsertarVentaCaiPrinci
    
  '      With DE.rsInsertarVentaCaiPrinci
  '          For m = 1 To DE.rsInsertarVentaCaiPrinci.RecordCount
  '              CC = .Fields("Codigo_Contrato")
  '              If DE.rsMVentasCaidas_Principal.State = adStateOpen Then DE.rsMVentasCaidas_Principal.Close
                'DE.MVentasCaidas_Principal "I",  CC, "D", "31-10-2004"
  '          DE.rsInsertarVentaCaiPrinci.MoveNext
  '          Next m
   '     End With


    ' aca inserto los productos detalles en la tabla que se llama VentaCaidaProductDetalle
   ' @Accion char(1), @CodigoContrato   char(20), '@CodigoEmpleado   char(10), '@CodigoProducto   char(20),'@Valor   numeric(18,2)

'    If DE.rsDetVCProducto.State = adstaopen Then DE.rsDetVCProducto.Close
'    DE.DetVCProducto
    If DE.rsDetVCProductoOmar.State = adStateOpen Then DE.rsDetVCProductoOmar.Close
    DE.DetVCProductoOmar

        With DE.rsDetVCProductoOmar
            For m = 1 To DE.rsDetVCProductoOmar.RecordCount
                codigoContrato = .Fields("Codigo_Contrato")
                codigoEmpleado = .Fields("CodigoVendedor")
                CodigoProducto = .Fields("Codigo_Producto")
                valora = .Fields("valorProducto")
                
                ' If DE.rsMVentaCaidaProductDetalle.State = adStateOpen Then DE.rsMVentaCaidaProductDetalle.Close
                ' DE.MVentaCaidaProductDetalle "I", codigoContrato, codigoEmpleado, CodigoProducto, valora
                 DE.VentaMCaidaProduDetOmar "I", codigoContrato, codigoEmpleado, CodigoProducto, Date, valora
            
            DE.rsDetVCProductoOmar.MoveNext
            Next m
       End With


'       Imprimir RutaReportes & "ReporteOmar.rpt", "", "", "", ""
       Imprimir RutaReportes & "reporteOmar2.rpt", "", "", "", ""
       
       

    

    
    
Exit Sub
Errores:
   Errores Err, error
End Sub

Private Sub CmdSalir_Click()
        Unload Me
End Sub

Private Sub Form_Load()
     Left = Screen.Width / 2 - Width / 2
    Top = (Screen.Height / 2 - Height / 2) - 800
    LimpiarObjetos Me
      ModoEdicion False, Me
    Me.Picture = LoadResPicture(104, 0)
End Sub
